home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / blitzbasic / riblitzlibs.lha / riblitzlibs / reqlib / ReqLibTest.asc < prev   
Text File  |  1980-01-03  |  2KB  |  37 lines
  1. ;#############################
  2. ;# Example 1.4 - Req.Library #
  3. ;#############################
  4. ;
  5. ; By Steven Matty
  6. ;
  7. ; You MUST have the req.library available...
  8.  
  9. #FRQSHOWINFOB     = %1   ;Set to show .info files. Default is not.
  10. #FRQEXTSELECTB    = %10   ;Extended select.  Default is not.
  11. #FRQCACHINGB      = %100   ;Directory caching.  Default is not.
  12. #FRQGETFONTSB     = %1000   ;Font requester rather than a file requester.
  13. #FRQINFOGADGETB   = %10000   ;Hide-info files gadget.
  14. #FRQHIDEWILDSB    = %100000   ;DON'T want 'show' and 'hide' string gadgets.
  15. #FRQABSOLUTEXYB   = %1000000   ;Use absolute x,y positions rather than centering on mouse.
  16. #FRQCACHEPURGEB   = %10000000   ;Purge the cache whenever the directory date stamp changes if this is set.
  17. #FRQNOHALFCACHEB  = %100000000   ;Don't cache a directory unless it is completely read in when this is set.
  18. #FRQNOSORTB       = %1000000000   ;DON'T want sorted directories.
  19. #FRQNODRAGB       = %10000000000  ;DON'T want a drag bar and depth gadgets.
  20. #FRQSAVINGB       = %100000000000  ;Are selecting a file to save to.
  21. #FRQLOADINGB      = %1000000000000  ;Are selecting a file(s) to load from.
  22. #FRQDIRONLYB      = %10000000000000  ;Allow the user to select a directory, rather than a file.
  23.  
  24. WbToScreen 0
  25. Window 0,0,0,WBWidth,WBHeight,$1000a,"ReqLibrary Test",1,0
  26. ReqOutput 0       ; Set ouput to window 0
  27. ReqFlags #FRQCACHINGB|#FRQINFOGADGETB|#FRQABSOLUTEXYB|#FRQCACHEPURGEB
  28.                   ; Set a few flags
  29. NPrint ReqFileRequest("Select a file....")
  30. ReqFlags #FRQCACHINGB|#FRQINFOGADGETB|#FRQABSOLUTEXYB|#FRQCACHEPURGEB|#FRQDIRONLYB
  31. NPrint ReqFileRequest("Select a directory....")
  32. NPrint "Req Structure located at ",ReqFileLoc
  33. NPrint "THE END!"
  34. MouseWait
  35. End
  36.  
  37.